#!/usr/bin/perl -w

print  "Enter a string:\n";
chomp($string = <STDIN>);

print  "Enter number:\n";
chomp($number = <STDIN>);

$result = $string x $number;
print "The result:\n$result.\n";
